home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / U-V / userlogstack.cpt / UserLog Stack / background_2582.txt < prev    next >
Text File  |  1990-01-06  |  5KB  |  237 lines
  1. -- background: 2582 from stack: in
  2. -- bmap block id: 3219
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the number of this card into field cardNo
  9. end openCard
  10.  
  11.  
  12. -- part 1 (field)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=12 top=103 right=124 bottom=475
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 0
  19. -- font id: 2
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Connect
  24.  
  25.  
  26. -- part 3 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=473 top=29 right=51 bottom=507
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 1009 / 1009
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Do It
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   ask "File to import?" with ""
  41.   if it is empty then exit mouseUp
  42.   put it into fileName
  43.   open file fileName
  44.   go to last card
  45.   repeat forever
  46.     read from file fileName until return
  47.     if it is empty then
  48.       go to first card
  49.       close file fileName
  50.       exit mouseUp
  51.     else if first word of it is "Connection" then
  52.       put it into connectTime
  53.       read from file fileName until return
  54.       put it into userName
  55.       doMenu New Card
  56.       put connectTime into field Connect
  57.       put userName into field User
  58.       repeat
  59.         read from file fileName until return
  60.         if first char of it is "-" then exit repeat
  61.         else put it after field Activity
  62.       end repeat
  63.       get last word of field Connect
  64.       convert it to seconds
  65.       put it into a
  66.       get last word of field Activity
  67.       convert it to seconds
  68.       put it into b
  69.       set numberFormat to 0.00
  70.       put ((b - a) / 60) into field time
  71.     end if
  72.   end repeat
  73. end mouseUp
  74.  
  75.  
  76. -- part 4 (field)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=12 top=78 right=99 bottom=378
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: User
  88.  
  89.  
  90. -- part 5 (field)
  91. -- low flags: 00
  92. -- high flags: 6007
  93. -- rect: left=12 top=128 right=296 bottom=475
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 2
  98. -- text size: 10
  99. -- style flags: 0
  100. -- line height: 13
  101. -- part name: Activity
  102.  
  103.  
  104. -- part 6 (field)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=387 top=78 right=99 bottom=443
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 65535
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Time
  116.  
  117.  
  118. -- part 7 (button)
  119. -- low flags: 00
  120. -- high flags: 2000
  121. -- rect: left=477 top=315 right=331 bottom=494
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 16560 / 16560
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: 
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   visual effect wipe left
  133.   go to next card
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 8 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=455 top=315 right=331 bottom=472
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 15420 / 15420
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: 
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   visual effect wipe right
  153.   go to previous card
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 9 (button)
  159. -- low flags: 00
  160. -- high flags: E006
  161. -- rect: left=120 top=311 right=333 bottom=220
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: by Connect
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   if hilite of background button "by User" is true then
  173.     set hilite of background button "by User" to false
  174.   end if
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 10 (button)
  180. -- low flags: 00
  181. -- high flags: A006
  182. -- rect: left=230 top=311 right=333 bottom=330
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: by User
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   if hilite of background button "by Connect" is true then
  194.     set hilite of background button "by Connect" to false
  195.   end if
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 11 (button)
  201. -- low flags: 00
  202. -- high flags: A003
  203. -- rect: left=13 top=311 right=333 bottom=113
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: Sort
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   if hilite of background button "by Connect" is true then
  215.     sort by last word of field connect
  216.     sort by seventh word of field connect
  217.   end if
  218.   if hilite of background button "by User" is true then
  219.     sort by field user
  220.   end if
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 12 (field)
  226. -- low flags: 00
  227. -- high flags: 0000
  228. -- rect: left=4 top=31 right=52 bottom=35
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: cardNo
  237.